home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sheriffa / slsapiex.bas < prev    next >
BASIC Source File  |  1998-11-17  |  1KB  |  32 lines
  1. Attribute VB_Name = "SlsApiEx"
  2. ' This is a part of the Sheriff System Development Kit.
  3. ' Copyright (C) 1997-1998 Acudata Limted.
  4. ' All rights reserved.
  5. '
  6. ' This source code is only intended as a supplement to the
  7. ' Sheriff System Development Kit and related
  8. ' electronic documentation provided with the SDK.
  9.  
  10. Public Const SLSKEY_ERROR = &H0&
  11. Public Const SLSKEY_SUCCESS = &H1&
  12. Public Const SLSKEY_E_BAD_PRODUCT_ID = &H2&
  13. Public Const SLSKEY_E_BAD_REFERENCE = &H3&
  14. Public Const SLSKEY_E_BAD_PID_REF = &H4&   'Reference code does not match product ID
  15. Public Const SLSKEY_E_BAD_LICENCE_TYPE = &H5&
  16. Public Const SLSKEY_E_BAD_LICENCE_DATE = &H6&
  17. Public Const SLSKEY_E_BAD_SECRET_SIZE = &H10&
  18. Public Const SLSKEY_E_BAD_SECRET_1 = &H11&
  19. Public Const SLSKEY_E_BAD_SECRET_2 = &H12&
  20. Public Const SLSKEY_E_BAD_SECRET_3 = &H13&
  21. Public Const SLSKEY_E_BAD_SECRET_4 = &H14&
  22.  
  23.  
  24. Declare Function SLS_GenerateLicenceKey Lib "SlsApi" ( _
  25.             ByVal lpszProductID As String, _
  26.             ppSecretArray As SLS_SECRET, _
  27.             ByVal nSecretSize As Integer, _
  28.             ByVal lpszReferenceCode As String, _
  29.             pLicencePolicy As SLS_LICENCE, _
  30.             ByVal lpszLicenceKey As String) As Integer
  31.  
  32.